home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2000-08-07 | 2.4 KB | 86 lines |
- "FILE"="Xteq Systems X-Setup Plugin 5.0"
- "TYPE"="1"
- "COUNT"="4"
- "UIPATH"="Internet\Instant Messaging\Gku"
- "NAME"="Server Settings"
- "LANGUAGE"="VBScript"
- "TEXT 1"="LogicServer"
- "TEXT 2"="Server Port"
- "TEXT 3"="Timeout"
- "TEXT 4"="Retry Delay"
- "DESCRIPTION 1"="These are the settings which Gku uses as the LogicS 'community' server."
- "DESCRIPTION 2"="Typical IP addresses for the servers are: "
- "DESCRIPTION 3"="The Pest's Server (Default): 24.218.179.145"
- "DESCRIPTION 4"="Biztalk's Server: 24.48.148.50"
- "DESCRIPTION 5"="Please note that the servers listed here are only compatible with Gku 2 Build 11 onwards."
- "DESCRIPTION 6"="The server port is always 1998, and is provided here for debuging only."
- "DESCRIPTION 7"="The Timeout and Retry Delay are provided to debug message sending."
- "DESCRIPTION 8"="Gku may be obtained at http://lockergnome.virtualave.net"
- "COMMENT 1"="For more information, go to http://www.xteq.com."
- "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
- "COMMENT 3"="Thanks also to Vex, the maker of Gku."
- "VERSION"="3.00"
- "AUTHOR"="Vex Bit <vex@xifa.fsnet.co.uk>"
- "COPYRIGHT"="Copyright ⌐ 1999-2000, Xifa Technologies, Inc."
-
- 'Declaration of some constants
- sFile=""
- sSec="Connection"
- sV1="LogicServer"
- sV2="ServerPort"
- sV3="Timeout"
- sV4="RetryDelay"
-
- 'Called when the Plugin is started
- SUB Plugin_Initialize
- Call GetGkuFile
-
- If FileExists(sFile) then
-
- s=iniReadValue(sFile,sSec,sV1)
- SetUiElement 1,s
-
- s=iniReadValue(sFile,sSec,sV2)
- SetUiElement 2,s
-
- s=iniReadValue(sFile,sSec,sV3)
- SetUiElement 3,s
-
- s=iniReadValue(sFile,sSec,sV4)
- SetUiElement 4,s
-
- else
- Call Disable()
- End if
-
- END SUB
-
- 'Called when the Plugin should validate the Data the user has entered
- SUB Plugin_CheckData(ElementIndex)
- END SUB
-
- 'Called when the Plugin should apply the changes
- SUB Plugin_Apply(ElementIndex,ElementSubIndex)
- s=GetUIElement(1)
- Call iniWriteValue(sFile,sSec,sV1,s)
-
- s=GetUIElement(2)
- Call iniWriteValue(sFile,sSec,sV2,s)
-
- s=GetUIElement(3)
- Call iniWriteValue(sFile,sSec,sV3,s)
-
- s=GetUIElement(4)
- Call iniWriteValue(sFile,sSec,sV4,s)
- END SUB
-
- 'Called when the Plugin is about to be removed from memory
- SUB Plugin_Terminate
- END SUB
-
- 'User defined SUB's
- SUB GetGKUFile
- s=iniReadValue("WIN.INI","GKU","InstallDir")
- sFile=s & "\gku.ini"
- END SUB
-